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PETTTITILI LIL LI LILI LILI LLL LLL LLL LiL tiiiiiiiit tite 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
~ 
® 
' * 
:* ale SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ysee AND oad bag * 
tt ONLY IN ACCORDANCE WITH THE en OF SUCH Tat SE AND WITH THE * 
:® INCLUSION OF THE ABOVE 2 gpd NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
4 ® 
't THE ot re ieee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOU —E * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL E T * 
1 CORPORATION. * 

® 

® 

*® 

® 

* 

*® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Edit History: 


Created. SBL a -1981 

Add PASSSEND READ. SBL 24-May-1982 

Make PAS$S$CLOSE NOVALUE. SBL ”28-June-1982 

Delete PASSK_INVFIESPE, no longer used. SBL 2-July-1982 

Add the symbol PASSSVAL IDATE PFV_END. This is not a ig = Bem 


ses to if the PC 
an access violation was in OBASSSVALIDATE PFV. SBL 14svulys of 982 
1-006 = Add PAS$$GOTO_HANDLER and PASSSUNWIND_GOTO. SBL 8-Feb-1983 

1-007 - Add PASS$$AB_KEYWD_NAME_TABLE. SBL 19-Aug-1983 
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14+ 
Define Linkages used for internal calls in the Pascal RTL support 


i Im these Linkages R6 is always used to pass the PFV and R7 is always 
: used to pass the FCB. 


LINKAGE 
JSB_INIT_WRITE = 
JSB TREGISTER=6, REGISTER=7; REGISTER=7): 
NOTUSED(8,9.10,11) NOPRESERVE(2,3,4,5), | 
JSB_END_WRITE = 
B™ (REGISTER= “6 REGISTER=7): 
NOTUSED(4,5.8,9,10,11) NOPRESERVE(2,3), 
JSB_DO_WRITE = 
JSB (REGISTER=6, REGISTER=7, REGISTER=8): 
TUSED (9,10,11) NOPRESERVE(2,3,4,5). | 
JSB_INIT READ > 
JSB TRE GISTER=6, REGISTER=7; REGISTER=7): | 
TUSED(8,9.10,11) NOPRESERVE(2,3,4,5), 
JSB -END READ . 
JSB” (REGISTER=6, REGISTER= =7): 
USED(0,1.2,3,4,5,8,9,10,11), 
JSB -VALIDATE PFY = 
JSB ( RESTS TERNS: REGISTER=7): 
JSB_READ UTIL = 
“JSB theslsTeRc, REGISTER=7; REGISTER=4, REGISTER=5, REGISTER=7): 
TUSED D (9.40.11) NOPRESERVE (2,3,8), 
JSB_F IND yh BLA 
“JSB TREGISTERSG, REGISTER=7; REGISTER= 7): | 
NOPRE SERVE (2,3,8) NOTUSED (4,5,9,10.11), 
JSB_CLOSE_LOCAL 
SB: “PRESERVE (0,1) NOPRESERVE (2,3) NOTUSED (4,5,.6,7,8,9,10,11), 


JSB_DO_R 
“ISB (REGISTER 6, eegieren= 2, ,REGISTER=3,REGISTER=4; REGISTER=0, REGISTER=1): 
J$B_p0 ae RESERVE (2,3,4,6) NOTUSED (5,7.8,9,10,11). 


ITEV 
“SB. cmcel sient, eREGISTERS 2. etateee 3 


=3,REGISTER=4,REGISTER=5): 
ERVE (2,3,4,5,6) NOTUSED ( 


oR 
8.9,10,11), 


JSB_GE 
“JSB (REGISTER=6, REGISTER=7): 
NOTUSED(4,5.8,9,10,11) NOPRESERVE(2,3), 
JSB_LOOK_AHEAD = 
JSB TREGISTER=6, REGISTER=7; REGISTER=7): 
NOTUSED(4,5.8,9,10,11) NOPRESERVE (2,3), 
JSB_OPEN_IMPLICIT = 
JSB TREGISTER=6, REGISTER=7; REGISTER=7): 
NOTUSED(3,4,.5,8,9,10,11) NOPRESERVE (2), 
JSB_PROMPT FILE = 
JSB (REGISTER=6, REGISTER=7): 
NOTUSED (2,5,4,5,8,9,10,11), 
JSB -WRITELN = 
“JSB (REGISTER=6 REGISTCR=7) : 
ED (8,9,10,11) NOPRESERVE (2,3,4,5) 


NOTU 
CALL_VALO1 = 
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CALL (;REGISTER=0, REGISTER=1), 
CALL_SAVEALL = 

CALL : PRESERVE (0,1), 
CALL_SIGNAL = 

CALL (REGISTER=6), 
CALL_OPEN = 
wey CALL (;REGISTER=7), 


L s 
CALL (REGISTER=6); 
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rs 
! Define all globals declared in all Pascal-specific BLISS modules and 
i _those non-BLISS modules which are referenced by BLISS modules. 


EXTERNAL ROUTINE 


Module PASSBIN 
PASSBIN: NOVALUE, 


mosuce PASSCLOSE2 
$CLOSE2: NOVALUE, 
PASSSCLOSE: NOVALUE, 


a 4 PASSCVTRT 


SCVT_F_T, 
PASSCVT-D-T. 
PASSCVT_G_T, 
PASSCVT"H-T, 


Module PASSEOF2 
PASSEOF 2, 


ee Loa 


Module PASSDELETE 
PASSDELC TE: NOVALUE, 


Module ster UTIL 


: NOVALUE, 
PASSSPROMPT FILE: 136 PROMPT_FILE NOVALUE, 
PAS$SCLOSE ALL: NOV 
PASSCLOSE_COCAL R3e tot i CLOSE_LOCAL NOVALUE, 
PASSSCLOSE_LOCAC: JSB_CCOSE_LOCAL NOVALUE, 


Module PASS$FIND2 
PASSFIND2: NOVALUE, 


Module PASSF INDK 
PASSFINDK: NOVALUE, 


Mudule PASSGET 
PASS 


: NOVALUE, 
PASSCET “UNLOCK: NOVALUE, 
PASS$SSGET: JSB_GET NOVALUE, 


Module PAS$GOTO 
PAS$GOTO: NOVALUE, 
PAS$$GOTO HANDLER. 

PASSSUNWIRD_GOTO 


Module PAS$HALT 
PASSHALT: NOVALUE, 


Eee ee ee ee ey 
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Module PASSHANDLER 
PASSHANDLER, 


Module € ,PASSHEAP 
PASSDISPGSE? NOVALUE, 
PASSMARK 
PASSRELEASE2: NOVALUE, 


Module PASSHEX | 
PASSHEX: NOVALUE, 


Module PAS$$10_HANDLER 
PAS$SIO_HANDCER, 


Module PASSLINELIMIT2 
PASSLINELIMIT2: NOVALUE, 


Module PASSLOCATE 
PASSLOCATE: NOVALUE, 


Module PASS$LOOK_AHEAD 
PASSLOOK AHEAD: CALL_SAVEALL NOVALUE, 
PASS$LOOR AHEAD: JSB-LOOK_AHEAD NOVALUE, 


Module PASSOCT 
PASSOCT: NOVALUE, 


Module Ao pgp 
PASSOPEN2: LUE, 
PASSSOPEN: Cale L OPEN VALUE, 
PASSSOPEN_ IMPLICIT: Ise OPEN_IMPLICIT NOVALUE, 


Module PASSPAGE2 
PASSPAGE2: NOVALUE, 


Module PASS$RAB 
PASSRAB, 


Module PASS$READ_BOOLEAN 
PASSREAD_ BOOLEAN 
PASSREADU” OROOLEAN, 


Mudule PASSREAD_ CHAR 
PAS$SREAD_CKA 
PASSREADV_ Cnar, 


Module S_PASSREADLNZ 
PASSREADLN 
PASSSINIT READ: se CiNIT READ oNOVALUE. 
PASSSEND_READ: JSB_END_READ NOVALUE, 
PAS$$DO_READV: it DO OREADY NOVALUE. 


Module PAS$S$READ_UTIL 
PASSS$GET_UNSIGRED: JSB_READ_UTIL, 


(a 


ovuexven tote 


PASSSGET_INTEGER: JSB_READ_UTIL, 
PASSSGET_REAL: JSB_READ_UTIL 
PASSSGET-ENUMERATED: JSB_REAO_UTIL, 


Module PASSREAD_ENUMERATED 
PASSREAD_ENUMERATED, 
PASSREADV_ENUMERATED, 


Module PASSREAD_INTEGER 
PASSREAD_INTEGER 
PASSREADV_INTEGER, 


Module PASSREAD_REAL_D 
ASSREAD_REAL_D: CALL_VALO1 NOVALUE 
PASSREADV_REAL_D: CALC_VALO1 NOVALUE, 


Module PASSREAD_REAL_F 
PASSREAD_REAL F, 
PASSREADV_REAC_F, 


Module PASSREAD_REAL_G 
PASSREAD_REAL-G: CALL_VALO1 NOVALUE, 
PASSREADV_REAC_G: CALC_VALO1 NOVALUE, 


Module PASSREAD_REAL_H 
PASSREAD_REAL_H: NOVALUE, 
PASSREADY_REAC_H: NOVALUE, 


Module PASSREAD_ STRING1 
PASSREAD_STRING1: NOVALUE, 


Module PASS$SREAD_ STRING 
PASSREAD_STRING: NOVALUE, 
PASSREADV_STRING: NOVALUE, 


Module PASS$SREAD_UNSIGNED 
PASSREAD_UNSIGNED, 
PASSREADQ_UNSIGNED, 


Module PASSREAD_VARYING 
PASSREAD_VARYING: NOVALUE 
PASSREADV_VARYING: NOVALUE, 


Module PAS$RESET2 
PASSRESET2: NOVALUE, 


Module PASSRESETK 
PASSRESETK: NOVALUE, 


Module PAS$REWRITE2 
PASSREWRITE2: NOVALUE, 


Module PASS$$SIGNAL 
PASS$S$SIGNAL: CALL SIGNAL NOVALUE, 
PASSS$BUGCHECK: NOVALUE, 


1 
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Module PASSSTATUS 
PASSSTATUS, 


Module PASSTRUNCATE 
PASSTRUNCATE: NOVALUE, 


Module PASSUFB 
PASSUFB, 


Module PASSUNLOCK 
PASSUNLOCK: NOVALUE, 


Module PASSUPDATE 
PASSUPDATE: NOVALUE, 


Module PASSSVALIDATE_PFV 
PAS$SSVALIDATE_PFV: JSB_VALIDATE_PFV NOVALUE, 


Module PASSVM 
PASSSGET_VM: CALL_VM 
PASSSFREE_VM: NOVALUE, 


Module PASSWRITE_BIN 
PASSWRITE_ BIN: NOVALUE, 
PASSWRITEV_BIN: NOVALUE, 


Module PASS$WRITE_BOOLEAN 
PASSWRITE BOOLEAN: NOVALUE 
PASSWRITEV_BOOLEAN: NOVALUE, 


Module PAS$WRITE_CHAR 
PASSWRITE CHAR: NOVALUE, 
PASSWRITEV_CHAR: NOVALUE, 


Module PAS$WRITE_ENUMERATED 
PASSWRITE_ENUMERATED: NOVALUE, 
PASSWRITEV_ENUMERATED: NOVALUE, 


Module PASS$WRITE_HEX 
ASSWRITE_HEX: NOVALUE, 
PASSWRITEQ_HEX: NOVALUE, 


Module PASS$WRITE_INTEGER 
PASSWRITE_INTEGER: NOVALUE 
PAS$SWRITEV_INTEGER: NOVALUE, 


Module PASS$WRITE_OCT 
PAS$SWRITE OCT: NOVALUE, 
PASSWRITEV_OCT: NOVALUE, 


Module PAS$WRITE_REALE_D 
PASSWRITE_REALE_D: NOVALUE 
PASSWRITEQ_REALE_D: NOVALUE, 


Module PASSWRITE_REALE _F 
PASSWRITE_REALE_F: NOVALUE, 


ee 
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PASSWRITEV_REALE_F: WOVALUE, 


Module PASSWRITE_REALE_G 
PASSWRITE_ REALE G: NOVALUE 
PASSWRITEV_REALE_G: NOVALUE, 


Module PASSWRITE_REALE_H 
PASSWRITE_REALE_H: NOVALUE 
PASSWRITEV_REALE_H: NOVALUE, 


Module PAS$WRITE_REALF_D 
PASSWRITE_REALF_D: NOVALUE 
PASSWRITEV_REALF_D: NOVALUE, 


Module PASSWRITE_REALF_D1 
PASSWRITE_REALF_D1: NOVALUE, 


| 
} 
| 
| 
| 
Module PAS$WRITE_REALF_F 
PASSWRITE_REALF_F: NOVALUE i 
PASSWRITEV_REALF_F: NOVALUE, | } 


Module PASSWRITE_REALF_F1 
PASSWRITE_REALF_F1: ROVALUE, 


Module PASS$SWRITE_REALF_G 
PASSWRITE_REALF_G: NOVALUE, 
PASSWRITEQ_REALF_G: NOVALUE, 


Module PASSWRITE REALF F | 
PASSWRITE REALF H: NOVALUE, | 
PASSWRITEQ_REALF_H: NOVALUE, 


Module PASSWRITE_STRING 
PAS$SWRITE_ STRING: NOVALUE, 
PASSWRITEQV_STRING: NOVALUE, 


=z 
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S 
PASSSEND_ORITE: JSB_EN 
PAS$$DO_ORITEV: JSB_DO_ 


Module PAS$WRITE_UNSIGNED 
PASSWRITE UNSIGNED: NOVALUE, 
PASSWRITEQ_UNSIGNED: NOVALUE, 


Module PASSWRITE_VARYING 
PASSWRITE_VARYING: NOVALUE 
PASSWRITEV_VARYING: NOVALUE; 
EXTERNAL | 


! Module PAS$FV_INPUT 
PAS$FV_INPUT: SPASSPFV_FILE_VARIABLE WEAK, 


! Module PASSFV OUTPUT 
PASSFV_OUTPOT: SPASSPFV_FILE_VARIABLE WEAK, 


! Module Gv INP EN2 


! Module PASSREAD_BOOLEAN 
PASS$S$GR_BOOLEAN_PETD: VECTOR (4, LONG]; 


EXTERNAL 
' Module PASSSVALIDATE_PFV ; 
PASSSVALIDATE_PFV_END; ! Not a routine! 


EXTERNAL LITERAL 
! Module goes: DEF 
K_MSG Over oe UNS ete 


BYTE 
paceeas “KEYWD_RAME NT ABLE: VECTOR CPAS$K_OPEKEYHI+1, BYTE], 
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'¢ 
: Define non=-Pascal routines called by Pascal RTL. 


EXTERNAL ROUTINE 


LIB$CVT_DTB, 
LIBSFREE_VM 
LIBS$GET_OPCODE, 
LIBSGET_VM, 


PASEXTERN.REQ;1 


‘+ 
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Define condition codes used by Pascal RTL routines. 


EXTERNAL LITERAL 


! Errors signalled with SPASS$IO_ERROR 


PASSK_ACCMETINC: 
PASSK~AMBVALENU: 


UNSIGNED (8) 


LL LOLOL LL LL Le ey i, le, ly ny my le, ln, ey ln, fe, le, lm, in, i, ey ae, im, lm, i, i, im, im, mn, im, im, i, 


*e* @seeeesteeesteststetst tet teeteetet *§ *# &# & &* &* © *& © & © & © *& © & © & © fF &©& &¢& © © © © © © © © © 
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PAS$K_LINTOOLON: UNSIGN 


) 
) 
) 
) 
) 
) 
8) 
8) 
8) 
8) 
8) 
8) 
8) 
8) 


’ 
’ 
’ 
. 
e 
’ 
’ 
’ 
eo 
o 
’ 
’ 
’ 
o 


PASSK_WRI INVENU: UNS I eNE 
! Errors signalled with LIBSSTOP 
PAS$_BUGCHECK, 


PASS$_ERRDURNEW, 
PAS$_ERRDURREL, 
PASS. =A LALRACT 


PAS$_GOTO 
PAS$_GOTOFAILED, 
PAS$S_HAL 
PAS$—INVFILVAR, 
PASS$_NEGDIGARG, 


PASS. fajwown.. ! Used by PASSHANDLER 
PAS$ "FACILITY: UNSIGNED(6), 
PAS$R_IGNORE : UNSIGNED (6); ! Used by PASSHANDLER 


! End of PASEXTERN.REQ 
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